-- background: 5214 from stack: in.0
-- bmap block id: 7186
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on idle

end idle






-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=102 right=119 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
put field name1 into field spine1



-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=120 right=244 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=171 top=102 right=119 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=171 top=120 right=247 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=15 top=270 right=299 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=307 right=327 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  push card
  Visual effect dissolve to white
  go to card id 4298
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=463 top=25 right=63 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transfer Titles to Flap & Print
----- HyperTalk script -----
on mouseUp
  beep
  put the userLevel into saveLevel
  set the userLevel to 3
  if the userLevel < 3 then exit mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  put field id 13 into temp1
  put field id 14 into temp2
  put field id 24 into temp3
  choose select tool
  drag from 5,70 to 168,101
  domenu clear picture
  choose text tool
  click at 85,85
  set textfont to geneva
  set textsize to 12
  set textalign to center
  type temp1
  choose select tool
  drag from 5,70 to 168,88
  domenu flip vertical
  domenu flip horizontal
  choose text tool
  click at 88,100
  set textfont to geneva
  set textsize to 9
  set textstyle to plain
  set textalign to center
  type temp1
  choose select tool
  drag from 173,68 to 341,101
  domenu clear picture
  choose text tool
  click at 257,85
  set textfont to geneva
  set textsize to 12
  set textalign to center
  type temp2
  choose select tool
  drag from 173,68 to 341,91
  domenu flip vertical
  domenu flip horizontal
  choose text tool
  click at 257,100
  set textfont to geneva
  set textsize to 9
  set textstyle to plain
  set textalign to center
  type temp2
  choose select tool
  drag from 343,68 to 512,102
  domenu clear picture
  choose text tool
  click at 427,85
  set textfont to geneva
  set textsize to 12
  set textalign to center
  type temp3
  choose select tool
  drag from 343,68 to 511,91
  domenu flip vertical
  domenu flip horizontal
  choose text tool
  click at 427,100
  set textfont to geneva
  set textsize to 9
  set textstyle to plain
  set textalign to center
  type temp3
  choose browse tool
  wait for 2 seconds
  domenu print card
  set the userLevel to saveLevel
end mouseUp



-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=342 top=102 right=120 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=340 top=118 right=246 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 30 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=60 top=249 right=266 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 5 to left
  set textFont of field id 5 to Geneva
  set textSize of field id 5 to 9
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=85 top=249 right=266 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 9 to left
  set textFont of field id 9 to Geneva
  set textSize of field id 9 to 9
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=109 top=249 right=266 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 25 to left
  set textFont of field id 25 to Geneva
  set textSize of field id 25 to 9
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=154 top=249 right=266 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 5 to left
  set textFont of field id 5 to Geneva
  set textSize of field id 5 to 12
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=266 top=249 right=266 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 5 to center
  set textFont of field id 5 to Geneva
  set textSize of field id 5 to 9
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=369 top=249 right=266 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 5 to center
  set textFont of field id 5 to Geneva
  set textSize of field id 5 to 12
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=181 top=249 right=266 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 9 to left
  set textFont of field id 9 to Geneva
  set textSize of field id 9 to 12
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=292 top=249 right=266 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 9 to center
  set textFont of field id 9 to Geneva
  set textSize of field id 9 to 9
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=397 top=249 right=266 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 9 to center
  set textFont of field id 9 to Geneva
  set textSize of field id 9 to 12
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=208 top=249 right=266 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 25 to left
  set textFont of field id 25 to Geneva
  set textSize of field id 25 to 12
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=318 top=248 right=265 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 25 to center
  set textFont of field id 25 to Geneva
  set textSize of field id 25 to 9
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=423 top=249 right=266 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field id 25 to center
  set textFont of field id 25 to Geneva
  set textSize of field id 25 to 12
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=301 right=340 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Erase Card
----- HyperTalk script -----
on mouseUp
  beep
  put the userLevel into saveLevel
  set the userLevel to 3
  if the userLevel < 3 then exit mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  choose select tool
  drag from 2,68 to 171,101
  domenu clear picture
  choose select tool
  drag from 173,68 to 341,101
  domenu clear picture
  choose select tool
  drag from 343,68 to 512,101
  domenu clear picture
  put "" into field 1
  put "" into field 2
  put "" into field 3
  put "" into field 4
  put "" into field 5
  put "" into field 6
  set the cursor to 1
  tabkey
  set the userLevel to saveLevel

end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=452 top=249 right=295 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  push card
  visual effect dissolve
  go to card id 6479
  set the cursor to 1
  tabkey
end mouseUp